
oota macro                    ; oottaa merkki nppimistlt
   move.w   #0,d3
   move     #1,-(sp)
   trap     #1
   addq.l   #2,sp
   move.b   d0,d3
   sub.w    #48,d3
   endm                       ; macron lopetus

lue macro                     ;lukee ohjetekstin
   move     #9,-(sp)
   trap     #1
   addq.l   #6,sp
   endm

   pea      terve(pc)
   lue
   move.w   #4,-(sp)
   move.w   #33,-(sp)
   trap     #14                ;printerconfig
   addq.l   #4,sp              ;epson matriisi = 4

   move     #23,-(sp)
   trap     #14
   addq.l   #2,sp              ;get time
   move.l   d0,d4
   move.w   d0,d3
   tst.w    d3
   beq      aika               ; jos se on nolla, kysy uusi

   move.l   d4,-(sp)
   move     #$2b,-(sp)         ; muutoin ota kyttn
   trap     #1
   addq.l   #4,sp
   move     #$2d,-(sp)
   trap     #1
   addq.l   #4,sp
   bra      loppu
aika
   pea      teksti(pc)
   lue                         ;ohjeteksti
   move.l   #0,d4
   move.l   #0,d5              ; nollaus

   oota
   mulu      #10,d3
   move     d3,d4
   oota
   add.w    d3,d4
   move     d4,d5              ;pivt

   pea      piste(pc)
   lue                         ;piste vliin

   oota
   mulu      #10,d3
   move     d3,d4
   oota                        ;kk
   add.w    d3,d4
   mulu     #%100000,d4
   add.w    d4,d5

   move     #$0A,d4                 ; vuosi 1989
   mulu     #%1000000000,d4
   add.w    d4,d5                 ; vuodet
   move.l   d5,d4

   and.w    #%111111111111111,d5
   move.w  d5,-(sp)
   move.w   #$2b,-(sp)
   trap     #1                         ; set_date
   addq.l   #4,sp

   clr.l    d3                         ;laajenna 32-bittiseksi
   move.b   #16,d3
   asl.l    d3,d5

   pea     teksti2(pc)
   lue                                    ; kellokokeilu ********
   oota
   mulu     #10,d3
   move     d3,d4
   oota
   add.w    d3,d4
   mulu     #%100000000000,d4           ; tunnit

   pea      piste(pc)
   lue                         ;piste vliin

   oota
   clr.w    d2
   mulu     #10,d3
   move.w   d3,d2                      ;minuutit ?????
   oota
   add.w    d3,d2
   mulu     #%100000,d2
   add.w    d2,d4
   add.w    d4,d5

   and.l    #%111111111111111111111111111111,d5

   move.l   d5,-(sp)                   ;aseta mys keyboard aika
   move     #22,-(sp)
   trap     #14
   addq.l   #6,sp
   pea      kurs_pois(pc)
   lue
loppu
  rts

teksti  dc.b 10,13,10,13," * piv __ __.-90.*"
        dc.b 27,68,27,68,27,68,27,68,27,68,27,68,27,68 ; kursori takaisin
        dc.b 27,68,27,68,27,68,27,68,27,101,0
teksti2 dc.b 10,13,"   klo.  ",0
kurs_pois
        dc.b 27,102,0
piste   dc.b ".",0
ohje    dc.b "v.=byteE3",0
terve   dc.b   10,13," Terve",0
   end

